home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / pvap322a / pvapdset.plp < prev    next >
Text File  |  1993-11-30  |  10KB  |  359 lines

  1. /************************************************************************
  2. *    ダウンロード予約                        *
  3. ************************************************************************/
  4. /*    ダウンロード予約メニュー    */
  5. %DOWNSET{
  6.     loop({
  7.     SNDMSG({erande_f.snd});
  8.     footnote({ダウンロードする場所を選択して下さい});
  9.     select({ダウンロードする場所を選択して下さい},
  10.         99999,{im({No})},
  11.         {    SIG    },{DOWNSIG;im({Yes})},
  12.         {    BBS    },{DOWNBBS;im({Yes})},
  13.         {    CUG    },{DOWNCUG;im({Yes})},
  14.         { プロフィール },{PROFSET;im({Yes})},
  15.         {    終  了    },{im({No})});
  16.     });
  17. };
  18. %DOWNSIG{
  19.     loop({
  20.     SNDMSG({erande_f.snd});
  21.     footnote({ダウンロードする場所を選択して下さい});
  22.     select({ダウンロードする場所を選択して下さい},99999,{im({No})},
  23.         {   フォーラム検索   },{FORUMSET({フォーラム});im({Yes})},
  24.         { フォーラム指定発言 },
  25.             {ForumSet({フォーラム指定発言});im({Yes})},
  26.         {     会議室検索     },{FORUMSET({SIG内会議室});im({Yes})},
  27.         {   会議室指定発言   },
  28.             {ForumSet({SIG内会議室指定発言});im({Yes})},
  29.         {       OSL       },{OSLLIBSET({SIG内OSL});im({Yes})},
  30.         {     ライブラリ     },
  31.             {OSLLIBSET({SIG内ライブラリ});im({Yes})},
  32.         {       終  了       },{im({No})});
  33.     });
  34. };
  35. %DOWNBBS{
  36.     loop({
  37.     SNDMSG({erande_f.snd});
  38.     footnote({ダウンロードの種類を選択して下さい});
  39.     select({ダウンロードの種類を選択して下さい},99999,{im({No})},
  40.         {   BBS検索   },{FORUMSET({BBS});im({Yes})},
  41.         { BBS指定発言 },{ForumSet({BBS指定発言});im({Yes})},
  42.         {     終  了     },{im({No})});
  43.     });
  44. };
  45. %DOWNCUG{
  46.     loop({
  47.     SNDMSG({erande_f.snd});
  48.     footnote({ダウンロードする場所を選択して下さい});
  49.     select({ダウンロードする場所を選択して下さい},99999,{im({No})},
  50.         {   掲示板検索   },{CUGSET({CUG内掲示板});im({Yes})},
  51.         { 掲示板指定発言 },
  52.             {CugSet({CUG内掲示板指定発言});im({Yes})},
  53.         {   会議室検索   },{CUGSET({CUG内会議室});im({Yes})},
  54.         { 会議室指定発言 },
  55.             {CugSet({CUG内会議室指定発言});im({Yes})},
  56.         {     OSL     },{CUGOSLSET({CUG内OSL});im({Yes})},
  57.         {   ライブラリ   },
  58.             {CUGOSLSET({CUG内ライブラリ});im({Yes})},
  59.         {     終  了     },{im({No})});
  60.     });
  61. };
  62.  
  63. /*    ID検索処理    */
  64. %IDsearch{
  65.     %memono1    @mlast+1;
  66.     %pickid{
  67.     %m  @nolmemo(memono1);
  68.     %n  @xlinenum;
  69.     %l1 @case    (n<1,
  70.             {Yes},    {im(@memo(memono1,1,1))},
  71.             {No},    {case    (n>m,
  72.                     {Yes},{im(@memo(memono1,m,1))},
  73.                     {No},{im(@memo(memono1,n,1))})});
  74.     im(@head(l1,{ }));
  75.     };
  76.  
  77.     %idsearch{
  78.     case (DOWNID,{},{DOWNID:=DOWNID2},,{DOWNID:=DOWNID|{,}|DOWNID2});
  79.     };
  80.  
  81.     case    (memono1>9,
  82.         {Yes},{SNDMSG({kaknin_f.snd});
  83.             select({メモ番号が一杯のためメモを開けません},
  84.                 99999,,)},
  85.         {No},
  86.         {CloseAllMemo;
  87.         madd(memono1,{\n});
  88.         mclear(memono1);
  89.         case    (@filechk(DIR1|{\PVAPLIST.DAT}),
  90.             {Yes},{mread(DIR1|{\PVAPLIST.DAT},memono1)});
  91.          mopen(memono1,320,21,639,459,{r});
  92.         footnote({選択中止},{b});
  93.         loop({
  94.         waitx();
  95.         case    (@xtype,
  96.             101,{%DOWNID2 @pickid;idsearch;im({No})},
  97.             201,{%DOWNID2 @pickid;idsearch;im({No})},
  98.             102,{im({No})},        202,{im({No})},
  99.             memono1,{%DOWNID2 @pickid;idsearch;im({No})},
  100.                 ,{im({Yes})});
  101.         });
  102.         case    (@mcheck==memono1,
  103.             {Yes},    {mclose(3)},
  104.             {No},    {CloseAllMemo;mopen(memono1);mclose(3)})});
  105. };
  106.  
  107. /*    プロフィールのダウンロード予約    */
  108. %PROFSET{
  109.     var DOWNID[64];
  110.     var ok[2];
  111.     loop({
  112.     SNDMSG({nyuryo_f.snd});
  113.     footnote({プロフィールダウンロード予約});
  114.     %a    @plane(    {cプロフィールダウンロード予約\n}|
  115.             {tダウンロードID /\n}|
  116.             {s           / ID一覧 \n}|
  117.             {c 複数のIDのプロフィールをダウンする場合は}|
  118.             {「,」で区切って下さい\n}|
  119.             {s/ 登録 / 取消 \n},DOWNID);
  120.     DOWNID:=@head(@getline(a,1,1),{\n});
  121.     %sel    @head(@getline(a,2,1),{\n});
  122.     ok:=    @head(@getline(a,3,1),{\n});
  123.     case(sel==1,{Yes},{IDsearch;im({Yes})});
  124.     });
  125.     %WRITE{
  126.     write    (TEMPPATH|{\PVAPDOWN.DAT},
  127.         {プロフィール/}|
  128.         DOWNID|{\n});
  129.     };
  130.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  131. };
  132.  
  133. /*    フォーラム・BBS検索予約    */
  134. %FORUMSET{[WHERE]
  135.     var JUMP[8];
  136.     var FORUM[2];
  137.     var KEYWORD[8];
  138.     var DOWNID[50];
  139.     var KEYDAY[17];
  140.     var ok[2];
  141.     loop({
  142.     SNDMSG({nyuryo_f.snd});
  143.     footnote(WHERE|{検索予約});
  144.     %a    @plane(    {c}|WHERE|{検索予約\n}|
  145.             {tジャンプコード /12345678\n}|
  146.             {tボード番号 /12\n}|
  147.             {t検索文字列 /12345678\n}|
  148.             {t検索ID   /\n}|
  149.             {s           / ID一覧 \n}|
  150.             {c 「,」で区切って複数指定します  }|
  151.                 {最大10IDまでです\n}|
  152.             {t検索日付   /12345678901234567\n}|
  153.             {c PC-VANのマニュアルの通りに指定して下さい\n}|
  154.             {s/ 登録 / 取消 \n},JUMP,FORUM,KEYWORD,DOWNID,KEYDAY);
  155.     JUMP:=        @head(@getline(a,1,1),{\n});
  156.     FORUM:=        @head(@getline(a,2,1),{\n});
  157.     KEYWORD:=    @head(@getline(a,3,1),{\n});
  158.     DOWNID:=    @head(@getline(a,4,1),{\n});
  159.     %sel        @head(@getline(a,5,1),{\n});
  160.     KEYDAY:=    @head(@getline(a,6,1),{\n});
  161.     ok:=        @head(@getline(a,7,1),{\n});
  162.     case(sel==1,{Yes},{IDsearch;im({Yes})});
  163.     });
  164.     %WRITE{
  165.     write    (TEMPPATH|{\PVAPDOWN.DAT},
  166.         WHERE|{/|}|
  167.         JUMP|{|}|FORUM|{|}|KEYWORD|{|}|
  168.         DOWNID|{|}|KEYDAY|{\n});
  169.     };
  170.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  171. };
  172.  
  173. /*    SIGからのダウンロード予約    */
  174. %OSLLIBSET{[WHERE]
  175.     var JUMP[8];
  176.     var OSLNUM[2];
  177.     var DOWNNUM[3];
  178.     var ok[2];
  179.     SNDMSG({nyuryo_f.snd});
  180.     footnote(WHERE|{ダウンロード予約});
  181.     %a    @plane(    {c}|WHERE|{ダウンロード予約\n}|
  182.             {tジャンプコード     /12345678\n}|
  183.             {tOSL・ライブラリ番号 /12\n}|
  184.             {tファイル・情報 番号 /123\n}|
  185.             {s/ 登録 / 取消 \n});
  186.     JUMP:=        @head(@getline(a,1,1),{\n});
  187.     OSLNUM:=    @head(@getline(a,2,1),{\n});
  188.     DOWNNUM:=    @head(@getline(a,3,1),{\n});
  189.     ok:=        @head(@getline(a,4,1),{\n});
  190.     %WRITE{
  191.     write    (TEMPPATH|{\PVAPDOWN.DAT},
  192.         WHERE|{/}|
  193.         JUMP|{/}|
  194.         OSLNUM|{/}|
  195.         DOWNNUM|{\n});
  196.     };
  197.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  198. };
  199.  
  200. /*    フォーラム・BBS指定発言ダウンロード予約    */
  201. %ForumSet{[WHERE]
  202.     var JUMP[8];
  203.     var FORUM[2];
  204.     var DOWNMES[100];
  205.     var ok[2];
  206.     SNDMSG({nyuryo_f.snd});
  207.     footnote(WHERE|{ダウンロード予約});
  208.     %a    @plane(    {c}|WHERE|{ダウンロード予約\n}|
  209.             {tジャンプコード /12345678\n}|
  210.             {tボード番号 /12\n}|
  211.             {t 発言 番号 /\n}|
  212.             {s/ 登録 / 取消 \n});
  213.     JUMP:=        @head(@getline(a,1,1),{\n});
  214.     FORUM:=        @head(@getline(a,2,1),{\n});
  215.     DOWNMES:=    @head(@getline(a,3,1),{\n});
  216.     ok:=        @head(@getline(a,4,1),{\n});
  217.     %WRITE{
  218.     write    (TEMPPATH|{\PVAPDOWN.DAT},
  219.         WHERE|{/}|
  220.         JUMP|{/}|FORUM|{/}|DOWNMES|{/\n});
  221.     };
  222.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  223. };
  224.  
  225. /*    CUG検索予約    */
  226. %CUGSET{[WHERE]
  227.     var CUG[8];
  228.     var PASS[8];
  229.     var MAINNUM[2];
  230.     var KEIJI[2];
  231.     var KEYWORD[8];
  232.     var DOWNID[50];
  233.     var KEYDAY[17];
  234.     var ok[2];
  235.     loop({
  236.     SNDMSG({nyuryo_f.snd});
  237.     footnote(WHERE|{検索予約});
  238.     %a    @plane(    {c}|WHERE|{検索予約\n}|
  239.             {tCUG名    /12345678\n}|
  240.             {tパスワード  /12345678\n}|
  241.             {s            / 検索 \n}|
  242.             {tメインメニュー番号 /12\n}|
  243.             {tボード 番号 /12\n}|
  244.             {t検索文字    /12345678\n}|
  245.             {t検索ID    /\n}|
  246.             {s            / ID一覧 \n}|
  247.             {c 「,」で区切って複数指定します  }|
  248.                 {最大10IDまでです\n}|
  249.             {t検索日付    /12345678901234567\n}|
  250.             {c PC-VANのマニュアルの通りに指定して下さい\n}|
  251.             {s/ 登録 / 取消 \n},
  252.             CUG,PASS,MAINNUM,KEIJI,KEYWORD,DOWNID,KEYDAY);
  253.     CUG:=        @head(@getline(a,1,1),{\n});
  254.     PASS:=        @head(@getline(a,2,1),{\n});
  255.     %sel        @head(@getline(a,3,1),{\n});
  256.     MAINNUM:=    @head(@getline(a,4,1),{\n});
  257.     KEIJI:=        @head(@getline(a,5,1),{\n});
  258.     KEYWORD:=    @head(@getline(a,6,1),{\n});
  259.     DOWNID:=    @head(@getline(a,7,1),{\n});
  260.     %sel2        @head(@getline(a,8,1),{\n});
  261.     KEYDAY:=    @head(@getline(a,9,1),{\n});
  262.     ok:=        @head(@getline(a,10,1),{\n});
  263.     case(sel==1,{Yes},{case(CUG={},
  264.                 {No},    {PASS:=@tail(PCVAN,{/}|CUG|{/},{/});
  265.                     im({Yes})},,{im({Yes})})});
  266.     case(sel2==1,{Yes},{IDsearch;im({Yes})});
  267.     });
  268.     %WRITE{
  269.     write    (TEMPPATH|{\PVAPDOWN.DAT},
  270.         WHERE|{/|}|
  271.         CUG|{|}|PASS|{|}|MAINNUM|{|}|KEIJI|{|}|KEYWORD|{|}|
  272.         DOWNID|{|}|KEYDAY|{\n});
  273.     };
  274.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  275. };
  276.  
  277. /*    CUGからのダウンロード予約    */
  278. %CUGOSLSET{[WHERE]
  279.     var CUG[8];
  280.     var PASS[8];
  281.     var MAINNUM[2];
  282.     var OSLNUM[2];
  283.     var DOWNNUM[3];
  284.     var ok[2];
  285.     loop({
  286.     SNDMSG({nyuryo_f.snd});
  287.     footnote(WHERE|{ダウンロード予約});
  288.     %a    @plane(    {c}|WHERE|{ダウンロード予約\n}|
  289.             {tCUG名       /12345678\n}|
  290.             {tパスワード     /12345678\n}|
  291.             {s               / 検索 \n}|
  292.             {tメインメニュー   番号 /12\n}|
  293.             {tOSL・ライブラリ番号 /12\n}|
  294.             {tファイル・情報 番号 /123\n}|
  295.             {s/ 登録 / 取消 \n},
  296.             CUG,PASS,MAINNUM,OSLNUM,DOWNNUM);
  297.     CUG:=        @head(@getline(a,1,1),{\n});
  298.     PASS:=        @head(@getline(a,2,1),{\n});
  299.     %sel        @head(@getline(a,3,1),{\n});
  300.     MAINNUM:=    @head(@getline(a,4,1),{\n});
  301.     OSLNUM:=    @head(@getline(a,5,1),{\n});
  302.     DOWNNUM:=    @head(@getline(a,6,1),{\n});
  303.     ok:=        @head(@getline(a,7,1),{\n});
  304.     case(sel==1,{Yes},{case(CUG={},
  305.                 {No},    {PASS:=@tail(PCVAN,{/}|CUG|{/},{/});
  306.                     im({Yes})},,{im({Yes})})});
  307.     });
  308.     %WRITE{
  309.     write    (TEMPPATH|{\PVAPDOWN.DAT},
  310.         WHERE|{/}|
  311.         CUG|{/}|PASS|{/}|MAINNUM|{/}|
  312.         OSLNUM|{/}|
  313.         DOWNNUM|{\n});
  314.     };
  315.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  316. };
  317.  
  318. /*    CUG指定発言ダウンロード予約    */
  319. %CugSet{[WHERE]
  320.     var CUG[8];
  321.     var PASS[8];
  322.     var MAINNUM[2];
  323.     var NUMBER[2];
  324.     var DOWNMES[100];
  325.     var ok[2];
  326.     loop({
  327.     SNDMSG({nyuryo_f.snd});
  328.     footnote(WHERE|{ダウンロード予約});
  329.     %a    @plane(    {c}|WHERE|{ダウンロード予約\n}|
  330.             {tCUG名    /12345678\n}|
  331.             {tパスワード  /12345678\n}|
  332.             {s            / 検索 \n}|
  333.             {tメインメニュー番号 /12\n}|
  334.             {tボード 番号 /12\n}|
  335.             {t 発言  番号 /\n}|
  336.             {s/ 登録 / 取消 \n},
  337.             CUG,PASS,MAINNUM,NUMBER,DOWNMES);
  338.     CUG:=        @head(@getline(a,1,1),{\n});
  339.     PASS:=        @head(@getline(a,2,1),{\n});
  340.     %sel        @head(@getline(a,3,1),{\n});
  341.     MAINNUM:=    @head(@getline(a,4,1),{\n});
  342.     NUMBER:=    @head(@getline(a,5,1),{\n});
  343.     DOWNMES:=    @head(@getline(a,6,1),{\n});
  344.     ok:=        @head(@getline(a,7,1),{\n});
  345.     case(sel==1,{Yes},{case(CUG={},
  346.                 {No},    {PASS:=@tail(PCVAN,{/}|CUG|{/},{/});
  347.                     im({Yes})},,{im({Yes})})});
  348.     });
  349.     %WRITE{
  350.     write    (TEMPPATH|{\PVAPDOWN.DAT},
  351.         WHERE|{/}|
  352.         CUG|{/}|PASS|{/}|MAINNUM|{/}|NUMBER|{/}|DOWNMES|{/\n});
  353.     };
  354.     case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
  355. };
  356.  
  357. /*    実行    */
  358. DOWNSET;
  359.